home *** CD-ROM | disk | FTP | other *** search
Wrap
<% on error resume next dim SecurityBox if (Session("Index") <> "Index") then Response.Redirect "index.asp" else set SecurityBox = Server.CreateObject("AdvFusionBox.FusionBox") end if %> <!--- #include file = "index.js" ---> <html> <head> <title>ASPFusion Security Box Administration</title> </head> <body bgcolor="#CAE4FF"> <form action="act_websitesecurity.asp" Method="POST" NAME="websitesecurityform" Onload="return focusit(document.websitesecurity.WebSiteName);"> <div align="right"> <table width="70%" align="left"> <tr width="100%" align="right"> <td><a href="javascript:submit(document.websitesecurityform, document.websitesecurityform.Logout, 'Logout')" onmouseover="window.status='Logout'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Logout</font></a></td> </tr> <tr width="100%" align="right"> <td><a href="dsp_changepassword.asp" onmouseover="window.status='Change Password'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Change Password</font></a></td> </tr> <tr width="100%" align="right"> <td><a href="dsp_registration.asp" onmouseover="window.status='Registration'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Registration</font></a></td> </tr> <tr width="100%" align="right"> <td><a href="dsp_default.asp" onmouseover="window.status='Default'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Default</font></a></td> </tr> <tr width="100%" align="right"> <td><a href="dsp_welcome.asp" onmouseover="window.status='<< Back'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1"><< Back</font></a></td> </tr> </table> <table cellpadding="0" cellspacing="1" width="25%"> <tr width="100%" align="right"> <td><img src="Images/aspfusion.gif"></td> </tr> </table> </div> <br> <table width="100%" cellpadding="0"> <input type="hidden" value="" name="Logout"> <input type="hidden" value="" name="Add"> <input type="hidden" value="" name="Modify"> <tr> <td colspan="2"><br> <%if Request.QueryString("result") = "0" then%> <p align="left"><font color="#FF0000" face="Arial" size="2"><b><%=Session("Error")%></b></p> <%else%> <p> </p> <%end if%> </td> </tr> <tr> <td width="25%"><br><font size="2" face="Arial">ASPFusion Security Box Name</font></td> <td width="75%"><br> <input type="text" name="WebSiteName" size="20" value="<%if (Request.QueryString("result") = "0") then%> <%=Request.QueryString("WebSiteName")%> <%else%> <%=""%> <%end if%>"> </td> </tr> <tr> <td colspan="2"><font face="Arial" size="2" color="#9D9D9D">Specify name with which new ASPFusion Security Box will be created.</font></td> </tr> <tr> <td colspan="2"><br> <b><font face="Arial" size="3" color="#000080">ASPFusion Security Box's List</font></b> </td> </tr> <tr> <td colspan="2"><font face="Arial" size="2" color="#9D9D9D">List of previously created ASPFusion Security Box. Click on the name to modify any existing ASPFusion Security Box.</font></td> </tr> </table> <table width="100%" cellspacing="1"> <tr> <td> <%set Result = SecurityBox.GetAllSectionKeys("WebSite.ini", "Path")%> <table width="100%" cellspacing="1"> <%dim count count = 0%> <%for each member in Result count = count + 1%> <tr> <td width="5%" valign="top"><b> <font face="Arial" size="2"><%=count&"."%></font></b></td> <td width="30%" valign="top"> <font face="Arial" size="2"><a href="javascript:submit(document.websitesecurityform, document.websitesecurityform.Modify, '<%=member.Key%>')" onmouseover="window.status='Modify ASPFusion Security Box <%=member.Key%>'; return true" onmouseout="window.status='';return true"><b><%=member.Key%></b></A></font> </td> <td width="65%" valign="top"> <font face="Arial" size="2"><%=member.Value%></font> </td> </tr> <%next if (count = 0) then%> <td colspan="2"> <FONT Face="Helvetica" Size="2"><%="No ASPFusion Security Box exist"%></FONT> </td> <%end if set Result = nothing set SecurityBox = nothing%> </table> </td> </tr> </table> <br> <table cellpadding="0" cellspacing="1" width="25%"> <tr width="100%" align="left"> <td><a href="javascript:submit(document.websitesecurityform, document.websitesecurityform.Add, 'Add')" onclick="return websitesecurity_checkit();" onmouseover="window.status='Add'; return true" onmouseout="window.status='';return true"><img src="Images/add.gif" border="0"></a></td> </tr> </table> <table align="center" width="100%"> <tr> <td align="center" valign="bottom"> <font face="Arial" color="black" size="1">Copyright ⌐ 2000, Advanced Communications</font> </td> </tr> </table> </form> </body> </html>